home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / magic / d / rtd.d < prev    next >
Text File  |  1997-10-26  |  3KB  |  63 lines
  1. (*----------------------------------------------------------------------*
  2.  *                                                                      *
  3.  *         MAGIC   Modula's  All purpose  GEM  Interface  Cadre         *
  4.  *                 ÿ         ÿ            ÿ    ÿ          ÿ             *
  5.  *----------------------------------------------------------------------*
  6.  * Version 3.30  02.02.1992     (C)90/91/92 by Peter Hellinger Software *
  7.  *----------------------------------------------------------------------*
  8.  *            Dieses Modul ist urheberrechtlich geschtzt.              *
  9.  *                                                                      *
  10.  * Die Ver”ffentlichung des Quelltextes oder Teilen daraus in schrift-  *
  11.  * licher Form, insbesondere in Zeitschriften, sowie die Verbreitung    *
  12.  * ber Public-Domain-H„ndler bedarf der ausdrcklichen schriftlichen   *
  13.  * Genehmigung des Autors!                                              *
  14.  *                                                                      *
  15.  * Der Autor gibt hiermit die ausdrckliche Erlaubnis, das Modul jeder- *
  16.  * zeit auch im Quelltext weiterzugegeben, sofern dessen Text und ins-  *
  17.  * besondere dieser Urheberrechts-Vermerk nicht ver„ndert wird, und     *
  18.  * durch die Weitergabe kein finanzieller Nutzen entsteht. Der Autor    *
  19.  * beh„lt sich das Recht vor, diese Erlaubnis jederzeit u. ohne Angaben *
  20.  * von Grnden zu widerrufen.                                           *
  21.  *----------------------------------------------------------------------*)
  22.  
  23. (*----------------------------------------------------------------------*
  24.  * RTD  (R)un-(T)ime-(D)ebugging. Die Proz. geben ber das BIOS aus     *
  25.  *----------------------------------------------------------------------*)
  26.  
  27. DEFINITION MODULE RTD;
  28.  
  29. FROM MagicSys   IMPORT  Nil, Null, Bit0, Bit1, Bit2, Bit3, Bit4, Bit5, Bit6,
  30.                         Bit7, Bit8, Bit9, Bit10, Bit11, Bit12, Bit13, Bit14,
  31.                         Bit15, LOC, Byte, ByteSet, sWORD, sINTEGER, sCARDINAL,
  32.                         sBITSET, lINTEGER, lCARDINAL, lWORD, lBITSET;
  33.  
  34.  
  35.  
  36.  
  37.  
  38. TYPE DEVICE = (printer, rs232, console);
  39.  
  40. PROCEDURE Into (REF  procedure: ARRAY OF CHAR);
  41. (* Gibt String "I: procedure" aus, z„hlt Verschachtelung mit *)
  42.  
  43. PROCEDURE Leaving (REF  procedure: ARRAY OF CHAR);
  44. (* Gibt String "L: procedure" aus, z„hlt Verschachtelung mit *)
  45.  
  46. PROCEDURE Message (REF  string: ARRAY OF CHAR);
  47. (* Gibt String aus *)
  48.  
  49. PROCEDURE Write (REF  msg, string: ARRAY OF CHAR);
  50. (* Schreibt msg, gefolgt von string *)
  51.  
  52. PROCEDURE ShowVar (REF  name: ARRAY OF CHAR; VAR value: ARRAY OF LOC);
  53. (* Zeigt den Wert der Variablen name in DEC, HEZ und BIN an *)
  54.  
  55. PROCEDURE SetDevice (dev: DEVICE);
  56. (* Schaltet das Ausgabeger„t (Drucker, Seriell oder Bildschirm um *)
  57.  
  58. PROCEDURE WaitKey;
  59. (* Wartet auf einen Tastendruck *)
  60.  
  61. END RTD.
  62.  
  63.